From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 6 Jul 2007 03:56:12 +0000 (+0000)
Subject: (math-add-bignum): Replace number by constant.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18075
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=cb4f758c9cd653c244eb2cf0d5d282a2cc7bf485;p=emacs.git

(math-add-bignum): Replace number by constant.
---

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 78d6231cb15..d81c1070b9f 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2780,7 +2780,7 @@ largest Emacs integer.")
 		      (progn
 			(setcar aa (1+ sum))
 			(setq carry nil))
-		    (setcar aa (+ sum -999)))
+		    (setcar aa (- sum (1- math-bignum-digit-size))))
 		(if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size)
 		    (setcar aa sum)
 		  (setcar aa (- sum math-bignum-digit-size))
@@ -2790,7 +2790,7 @@ largest Emacs integer.")
 	    (if carry
 		(if b
 		    (nconc a (math-add-bignum b '(1)))
-		  (while (eq (car aa) 999)
+		  (while (eq (car aa) (1- math-bignum-digit-size))
 		    (setcar aa 0)
 		    (setq aa (cdr aa)))
 		  (if aa